# Homework Assignment 1
# Megan Tienjaroonkul (mtienjar)
# Simulate Simmon's Situation B
# Addition of 10 more observations per cell

replicates <- replicate(20000, SituationB(.05)) # Run simulatuion 15000 times
SitBSim <- mean(replicates) # Take Mean
SitBSim # Display Result
